home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / tcl / tclmotif.1 / tclmotif / tm.1.2 / wtour / pushbutton2.tcl < prev    next >
Encoding:
Text File  |  1994-01-30  |  313 b   |  17 lines
  1. #
  2. # PushButton with callbacks
  3. #
  4.  
  5. xmPushButton .btn managed \
  6.     -labelString "Push here"
  7.  
  8. # simple callback
  9. .btn armCallback {puts stdout "I've been pressed"}
  10.  
  11. # all the info that can be got
  12. .btn disarmCallback {
  13.     puts stdout "I've been released
  14.     I am widget \"%w\"
  15.     I was released with reason \"%reason\""
  16. }
  17.